home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 2 #5 / Commodore_Disk_User_Vol.2_5_1989_-.d64 / news desk demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  178 lines
  1. 1000 rem ******************
  2. 1010 rem *                *
  3. 1020 rem *  64 news desk  *
  4. 1030 rem *                *
  5. 1040 rem *   basic demo   *
  6. 1050 rem *       by       *
  7. 1060 rem *   mike  benn   *
  8. 1070 rem *                *
  9. 1080 rem ******************
  10. 1090 rem
  11. 1100 rem ******************
  12. 1110 rem *                *
  13. 1120 rem * start address  *
  14. 1130 rem *   sa = 5947    *
  15. 1140 rem *                *
  16. 1150 rem * sys sa,        *
  17. 1160 rem * screen select, *
  18. 1170 rem * time delay,    *
  19. 1180 rem * string         *
  20. 1190 rem *                *
  21. 1200 rem * sys sa+3,      *
  22. 1210 rem * (inset screen) *
  23. 1220 rem * screen colour, *
  24. 1230 rem * spt. def. t/l, *
  25. 1240 rem * spt. col. t/l, *
  26. 1250 rem * spt. def. t/r, *
  27. 1260 rem * spt. col. t/r, *
  28. 1270 rem * spt. def. b/l, *
  29. 1280 rem * spt. col. b/l, *
  30. 1290 rem * spt. def. b/r, *
  31. 1300 rem * spt. col. b/r  *
  32. 1310 rem *                *
  33. 1320 rem * sys sa+6,      *
  34. 1330 rem * (return basic) *
  35. 1340 rem *                *
  36. 1350 rem ******************
  37. 1360 rem
  38. 1370 rem ******************
  39. 1380 rem *                *
  40. 1390 rem *    warning     *
  41. 1400 rem *                *
  42. 1410 rem *  do not use    *
  43. 1420 rem * any string of  *
  44. 1430 rem * more than 160  *
  45. 1440 rem *  characters    *
  46. 1450 rem *                *
  47. 1460 rem ******************
  48. 1470 rem
  49. 1480 a1$="hello and wellcome to the desk top video program "
  50. 1490 a2$="weve have a packed program for you so its over to the news desk "
  51. 1500 a3$=" the top news story is that a policeman has fixed a wheel clamp "
  52. 1510 a4$="to one the royal cars while parked on a double yellow   line "
  53. 1520 a5$="the queen is said not to be amused"
  54. 1530 a6$="britain is helping to lead the fight    against computer viruses "
  55. 1540 a7$="       sports news "
  56. 1550 a8$="a new computer football game has been   developed promising a more "
  57. 1560 a9$="realistic    game "
  58. 1570 b1$=" it includes pitch inavsions and fights in the stands "
  59. 1580 b2$="city news computerized banking takes    another step back "
  60. 1590 b3$="as a bank in the wall computer fails to deliver any money "
  61. 1600 b4$="and thats the news so far chuck "
  62. 1610 b5$="thanks tom   computer graphics are they overtaking television "
  63. 1620 b6$=" tune in tommorow for an in depth report "
  64. 1630 b7$="that about wraps it up so its goodnight from me "
  65. 1640 b8$="and its goobye from me "
  66. 1650 sa=5947
  67. 1660 rem *********
  68. 1670 rem * intro *
  69. 1680 rem *********
  70. 1690 syssa+3,0,63,1,50,15,50,15,63,1
  71. 1700 syssa,1,20,a1$+a2$
  72. 1710 gosub2310
  73. 1720 rem ***************
  74. 1730 rem * news item 1 *
  75. 1740 rem ***************
  76. 1750 syssa+3,0,55,1,56,1,59,1,60,1
  77. 1760 syssa,0,20,a3$+a4$
  78. 1770 syssa,0,20,a5$
  79. 1780 gosub2310
  80. 1790 rem ***************
  81. 1800 rem * news item 2 *
  82. 1810 rem ***************
  83. 1820 syssa+3,6,51,5,52,5,53,5,54,5
  84. 1830 syssa,0,20,a6$
  85. 1840 x=0:y=0
  86. 1850 a=64:b=65:d=66:e=67:f=10:g=50
  87. 1860 c=0:c1=1:c2=1:c3=1:c4=1
  88. 1870 gosub2230
  89. 1880 gosub2310
  90. 1890 rem ***************
  91. 1900 rem * news item 3 *
  92. 1910 rem ***************
  93. 1920 syssa+3,0,55,1,56,1,61,1,62,1
  94. 1930 syssa,0,20,a7$
  95. 1940 syssa,0,20,a8$+a9$
  96. 1950 syssa,0,20,b1$
  97. 1960 gosub2310
  98. 1970 rem ***************
  99. 1980 rem * news item 4 *
  100. 1990 rem ***************
  101. 2000 syssa+3,0,55,1,56,1,158,1,159,1
  102. 2010 syssa,0,20,b2$+b3$
  103. 2020 gosub2310
  104. 2030 rem ***************
  105. 2040 rem * news item 5 *
  106. 2050 rem ***************
  107. 2060 syssa+3,0,55,1,56,1,57,1,58,1
  108. 2070 syssa,0,20,b4$
  109. 2080 gosub2310
  110. 2090 rem ***************
  111. 2100 rem * news demo 1 *
  112. 2110 rem ***************
  113. 2120 syssa+3,0,63,1,63,1,63,1,63,1
  114. 2130 syssa,1,20,b5$
  115. 2140 gosub2320
  116. 2150 syssa+3,0,55,1,56,1,57,1,58,1
  117. 2160 syssa,0,20,b6$
  118. 2170 rem close
  119. 2180 syssa+3,0,63,1,63,1,63,1,63,1
  120. 2190 syssa,1,20,b7$
  121. 2200 syssa+3,0,55,1,56,1,57,1,58,1
  122. 2210 syssa,0,20,b8$
  123. 2220 syssa+6:end
  124. 2230 y=y+1:x=x+1:g=40
  125. 2240 syssa+3,c,a+x,c1,b+x,c2,d+x,c3,e+x,c4
  126. 2250 ifx=fthenx=0:ify=gthen2270
  127. 2260 goto2230
  128. 2270 return
  129. 2280 syssa+3,c,a+x,c1,b+x,c2,d+x,c3,e+x,c4
  130. 2290 return
  131. 2300 fortt=0to200:next:return
  132. 2310 fort=0to500:next:return
  133. 2320 rem pattern animation
  134. 2330 y=0:x=0
  135. 2340 a=149:b=149:d=153:e=153:f=4
  136. 2350 c=0:c1=1:c2=1:c3=1:c4=1
  137. 2360 gosub2230
  138. 2370 rem square animation
  139. 2380 y=0:x=0:g=40
  140. 2390 a=144:b=144:d=144:e=144:f=5
  141. 2400 c=0:c1=1:c2=1:c3=1:c4=1
  142. 2410 gosub2230
  143. 2420 rem colour demo
  144. 2430 a=63:b=63:d=63:e=63
  145. 2440 c1=c1+1:c2=c1+1:c3=c2+1:c4=c4+1:gosub2280:gosub2300
  146. 2450 ifc1=15then2470
  147. 2460 goto2440
  148. 2470 c=0:c1=1:c2=1:c3=1:c4=1
  149. 2480 gosub2280
  150. 2490 return
  151. 2500 rem
  152. 2510 rem ******************
  153. 2520 rem *                *
  154. 2530 rem *  this part of  *
  155. 2540 rem *  the demo is   *
  156. 2550 rem *  for use with  *
  157. 2560 rem *   the currah   *
  158. 2570 rem * speech 64 and  *
  159. 2580 rem *  may require   *
  160. 2590 rem *  addaptation   *
  161. 2600 rem * for use with   *
  162. 2610 rem *  other speech  *
  163. 2620 rem *    software    *
  164. 2630 rem *                *
  165. 2640 rem ******************
  166. 2650 rem
  167. 2660 s1$="sorry for the loss of sound programs    will continue later "
  168. 2670 s2$="[s(or)(ee)] [f(or)] (dth) loss ov [s(ow)nd] [pr(oo)(gg)rams] "
  169. 2680 s3$="will [konti(uu)] [l(aa)t(er)]"
  170. 2690 rem
  171. 2700 sa=5947
  172. 2710 init:rem initalise speech software
  173. 2720 say s2$+s3$:rem tell your speech unit to say s2$+s3$
  174. 2730 syssa+3,0,63,1,63,1,63,1,63,1
  175. 2740 syssa,1,20,s1$
  176. 2750 koff:rem turn off your speech unit
  177. 2760 end
  178.